home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 62 / Quick PC 62.iso / I386 / IIS5_01.CAB / IIS_iivdhd.asp < prev    next >
Encoding:
Text File  |  1999-06-03  |  3.7 KB  |  166 lines
  1. <%@ LANGUAGE = VBScript %>
  2. <% Option Explicit %>
  3. <!-- #include file="directives.inc" -->
  4.  
  5. <!--#include file="iivdhd.str"-->
  6.  
  7. <% 
  8. On Error Resume Next 
  9.  
  10. Dim path, currentobj, redir, dirtype, quote, dirkeyType, vtype
  11.  
  12. dirkeyType = "IIsWebDirectory"
  13. path=Session("dpath")
  14. Session("path")=path
  15. Set currentobj=GetObject(path)
  16. vtype = Session("vtype")
  17.  
  18. %>
  19. <!--#include file="iifixpth.inc"-->
  20. <%
  21.  
  22. redir=currentobj.HttpRedirect
  23. path=currentobj.path
  24.  
  25. if redir <> "" then
  26.     dirtype="redir"
  27. elseif instr(path,"\\") then
  28.     dirtype="net"
  29. else
  30.     dirtype="dir"
  31. end if
  32.  
  33.  
  34. quote=chr(34)
  35.  
  36. function writeDirType(thetype) 
  37.     if vtype = "svc" or not Session("isAdmin") then
  38.         if thetype = dirtype then
  39.             writeDirType = "<IMG SRC='images/radioon.gif' HSPACE=2 WIDTH=12 HEIGHT=12 BORDER=0>"        
  40.         else
  41.             writeDirType = "<IMG SRC='images/radiooff.gif' HSPACE=2 WIDTH=12 HEIGHT=12 BORDER=0>"
  42.         end if
  43.     else
  44.         if thetype=dirtype then
  45.             writeDirType= "<INPUT TYPE=radio NAME=" & quote &_
  46.                          "rdoDirType" & quote & " CHECKED OnClick=" &_
  47.                          quote & "warnWrkingSite();SetDirType('" & thetype & "')" &_
  48.                          quote & ">"
  49.         else
  50.             writeDirType= "<INPUT TYPE=radio NAME=" & quote &_
  51.                          "rdoDirType" & quote & " OnClick=" &_
  52.                          quote & "warnWrkingSite();SetDirType('" & thetype & "')" &_
  53.                          quote & ">"
  54.         end if
  55.     end if
  56. end function
  57.  
  58.  
  59.  %>
  60. <!--#include file="iisetfnt.inc"-->
  61. <HTML>
  62. <HEAD>
  63.     <TITLE></TITLE>
  64. </HEAD>
  65.  
  66. <SCRIPT LANGUAGE="JavaScript">
  67.  
  68.     var Global=top.title.Global;
  69.     Global.siteProperties = false;
  70.     
  71.     function warnWrkingSite()
  72.     {
  73.         if (top.title.nodeList[Global.selId].isWorkingServer)
  74.         {
  75.             alert("<%= L_WORKINGSERVER_TEXT %>");
  76.         }
  77.     }
  78.     
  79.     function SetDirType(theType){
  80.  
  81.         <% if Session("IsIE") then %>
  82.             if (theType=="net"){
  83.                 parent.head.location.href="iivddir.asp?ptype=UNC";
  84.             }
  85.             if (theType=="redir"){
  86.                 parent.head.location.href="iivdrd.asp";
  87.             }
  88.             if (theType=="dir"){
  89.                 parent.head.location.href="iivddir.asp?ptype=Local";
  90.             }    
  91.         <% else %>
  92.             if (theType=="net"){
  93.                 parent.frames[1].location.href="iivddir.asp?ptype=UNC";
  94.             }
  95.             if (theType=="redir"){
  96.                 parent.frames[1].location.href="iivdrd.asp";
  97.             }
  98.             if (theType=="dir"){
  99.                 parent.frames[1].location.href="iivddir.asp?ptype=Local";
  100.             }    
  101.         
  102.     <% end if %>
  103.     }
  104.     
  105. </SCRIPT>
  106.  
  107.  
  108. <BODY BGCOLOR="<%= Session("BGCOLOR") %>" OnLoad="SetDirType('<%= dirtype %>');" TOPMARGIN=5 TEXT="#000000" LINK="#FFFFFF"  >
  109. <TABLE WIDTH = 500>
  110. <TR>
  111. <TD>
  112.  
  113. <%= sFont("","","",True) %>
  114. <% if (vtype="server") or (vtype="svc") then %>
  115.     <B><%= L_HOMEDIRECTORY_TEXT %></B>
  116. <% else %>
  117.     <B><%= L_DIRECTORY_TEXT %></B>
  118. <% end if %>
  119.  
  120. <FORM NAME="userform">
  121. <%= L_WHENCONNECTING_TEXT %> <%= L_CONTENTSHOULD_TEXT %><P>
  122.  
  123.  
  124. <TABLE BORDER=0>
  125.     <TR>
  126.         <TD ALIGN="left" VALIGN="bottom">
  127.             <%= sFont("","","",True) %>
  128.             <%= writeDirType("dir") %>  <%= L_DIR_TEXT %>
  129.             </FONT>
  130.         </TD>
  131.     </TR>
  132.     <TR>
  133.         <TD ALIGN="left" VALIGN="bottom">
  134.             <%= sFont("","","",True) %>
  135.             <% if vtype <> "dir" then %>
  136.                 <%= writeDirType("net") %>  <%= L_NETDIR_TEXT %>
  137.             <% else %>
  138.             <% if Session("IsIE") then %>
  139.                  <IMG SRC="images/radiooff.gif" HSPACE=2 WIDTH=12 HEIGHT=12 BORDER=0 ALT="">    
  140.             <% else %>
  141.                 <IMG SRC="images/radiooff.gif" HSPACE=4 WIDTH=12 HEIGHT=12 BORDER=0 ALT=""> 
  142.             <% end if %>
  143.                 <%= sFont("","","Gray",True) %>
  144.                     <%= L_NETDIR_TEXT %>
  145.                 </FONT>
  146.             <% end if %>
  147.             </FONT>
  148.         </TD>
  149.     </TR>
  150.     <TR>
  151.         <TD ALIGN="left" VALIGN="bottom">
  152.             <%= sFont("","","",True) %>
  153.             <%= writeDirType("redir") %>  <%= L_REDIR_TEXT %>
  154.             </FONT>
  155.         </TD>
  156.     </TR>
  157. </TABLE>
  158. </FORM>
  159. <HR>
  160. </TD>
  161. </TR>
  162. </TABLE>
  163. </FONT>
  164. </BODY>
  165. </HTML>
  166.